home *** CD-ROM | disk | FTP | other *** search
/ Freaks Macintosh Archive / Freaks Macintosh Archive.bin / Freaks Macintosh Archives / Macintosh / Development & Resource Tools / ResEdit3.0d.sit / ResEdit™ 3.0 / Plugins / txtoPlugin.rsrc / VDL_16387_Resource.txto < prev   
Text File  |  1996-04-23  |  2KB  |  60 lines
  1. Define(StringEntry)
  2.     HList(Width = UseParent)
  3.         {
  4.         StaticText("Item ");
  5.         StaticText(ContextElementIndex);
  6.         VList(Width = UseParent)
  7.             {
  8.             Switch(entryType)
  9.                 {
  10.                 case 0: // ShortTextEntry
  11.                     VList(Width = UseParent)
  12.                         {
  13.                         EditText( shortType, UnsignedHex(8), Width = UseParent,
  14.                                      Label = "Short entry tag:", LabelAlignment = Right, LabelWidth = 80 );
  15.                         Spacer(Width = 0, Height = 1);
  16.                         EditText( string, Width = UseParent,
  17.                                      Label = "Text: ", LabelAlignment = Right, LabelWidth = 80);
  18.                         }
  19.                 
  20.                 case 1: // LongTextEntry
  21.                     VList(Width = UseParent)
  22.                         {
  23.                         EditText( encoding, UnsignedHex(32), Width = UseParent,
  24.                                      Label = "Encoding:", LabelAlignment = Right, LabelWidth = 80 );
  25.                         Spacer(Width = 0, Height = 1);
  26.                         EditText( locale, UnsignedHex(32), Width = UseParent,
  27.                                      Label = "Locale:", LabelAlignment = Right, LabelWidth = 80 );
  28.                         Spacer(Width = 0, Height = 1);
  29.                         EditText( string, Width = UseParent,
  30.                                      Label = "Text: ", LabelAlignment = Right, LabelWidth = 80);
  31.                         }
  32.                 
  33.                 case 2: // AnnotationEntry
  34.                     VList(Width = UseParent)
  35.                         {
  36.                         EditText( tag, UnsignedHex(32), Width = UseParent,
  37.                                      Label = "Annotation tag:", LabelAlignment = Right, LabelWidth = 80 );
  38.                         Spacer(Width = 0, Height = 1);
  39.                         EditText( encoding, UnsignedHex(32), Width = UseParent,
  40.                                      Label = "Encoding:", LabelAlignment = Right, LabelWidth = 80 );
  41.                         Spacer(Width = 0, Height = 1);
  42.                         EditText( locale, UnsignedHex(32), Width = UseParent,
  43.                                      Label = "Locale:", LabelAlignment = Right, LabelWidth = 80 );
  44.                         Spacer(Width = 0, Height = 1);
  45.                         EditText( string, Width = UseParent,
  46.                                      Label = "Text: ", LabelAlignment = Right, LabelWidth = 80);
  47.                         }
  48.                 
  49.                 } // Switch(entryType)
  50.             
  51.             } // VList
  52.         
  53.         } // HList
  54.  
  55. Margin(10, 10, 10, 10, Width = UseParent)
  56.     DynamicListMargin("Strings", strings, Width = UseParent)
  57.         DynamicVList(strings, txtoEntry, Width = UseParent, Editable)
  58.             Margin(2, 2, 2, 2, Dotted, Outer, Width = UseParent)
  59.                 Call(StringEntry);
  60.